inherited fmDoljnost: TfmDoljnost
  Left = 440
  Top = 199
  Width = 1396
  Height = 747
  Caption = 'fmDoljnost'
  Constraints.MinHeight = 747
  Constraints.MinWidth = 1300
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 693
    Width = 1388
  end
  inherited Panel1: TPanel
    Width = 1388
    Visible = False
    inherited BitBtn1: TBitBtn
      Left = 1218
    end
    inherited BitBtn2: TBitBtn
      Left = 1306
    end
  end
  object Panel2: TPanel [2]
    Left = 0
    Top = 45
    Width = 1388
    Height = 440
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 2
    object dxBarDockControl1: TdxBarDockControl
      Left = 0
      Top = 0
      Width = 1388
      Height = 26
      Align = dalTop
      BarManager = dxBarManager1
    end
    object dbgDoljnost: TcxGrid
      Left = 0
      Top = 26
      Width = 1388
      Height = 414
      Align = alClient
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      LookAndFeel.Kind = lfStandard
      object tvDoljnost: TcxGridDBTableView
        NavigatorButtons.ConfirmDelete = False
        NavigatorButtons.First.Visible = True
        NavigatorButtons.PriorPage.Visible = True
        NavigatorButtons.Prior.Visible = True
        NavigatorButtons.Next.Visible = True
        NavigatorButtons.NextPage.Visible = True
        NavigatorButtons.Last.Visible = True
        NavigatorButtons.Insert.Visible = False
        NavigatorButtons.Append.Visible = False
        NavigatorButtons.Delete.Visible = False
        NavigatorButtons.Edit.Visible = False
        NavigatorButtons.Post.Visible = False
        NavigatorButtons.Cancel.Visible = False
        NavigatorButtons.Refresh.Visible = False
        NavigatorButtons.SaveBookmark.Visible = False
        NavigatorButtons.GotoBookmark.Enabled = False
        NavigatorButtons.GotoBookmark.Visible = False
        NavigatorButtons.Filter.Visible = False
        FilterBox.CustomizeDialog = False
        FilterBox.Visible = fvNever
        OnCellClick = tvDoljnostCellClick
        DataController.DataSource = dsDoljnost
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <
          item
            Format = '#,###0'
            Kind = skCount
            FieldName = 'PLASTNAME'
            Column = tvDoljnostPLASTNAME
          end
          item
            Format = '#,###0'
            Kind = skSum
            FieldName = 'DFAMOUNT_DOPL'
            Column = tvDoljnostDFAMOUNT_DOPL
          end
          item
            Format = '#,###0'
            Kind = skSum
            FieldName = 'DFAMOUNT'
            Column = tvDoljnostDFAMOUNT
          end
          item
            Format = '#,###0'
            Kind = skSum
            FieldName = 'SUM_VYPL'
            Column = tvDoljnostSUM_VYPL
          end
          item
            Format = '#,###0'
            Kind = skSum
            FieldName = 'VYPL_BUHG'
            Column = tvDoljnostVYPL_BUHG
          end
          item
            Format = '#,###0'
            Kind = skSum
            FieldName = 'VYPL_WHITE'
            Column = tvDoljnostVYPL_WHITE
          end>
        DataController.Summary.SummaryGroups = <>
        DataController.Summary.Options = [soNullIgnore]
        OptionsBehavior.CellHints = True
        OptionsBehavior.FocusFirstCellOnNewRecord = True
        OptionsBehavior.IncSearch = True
        OptionsCustomize.ColumnFiltering = False
        OptionsCustomize.ColumnGrouping = False
        OptionsData.CancelOnExit = False
        OptionsData.Deleting = False
        OptionsData.DeletingConfirmation = False
        OptionsData.Editing = False
        OptionsData.Inserting = False
        OptionsView.NavigatorOffset = 5
        OptionsView.CellAutoHeight = True
        OptionsView.CellTextMaxLineCount = 1
        OptionsView.ColumnAutoWidth = True
        OptionsView.ExpandButtonsForEmptyDetails = False
        OptionsView.Footer = True
        OptionsView.HeaderEndEllipsis = True
        OptionsView.Indicator = True
        OptionsView.ShowColumnFilterButtons = sfbAlways
        Styles.Content = DMInv.cxData
        Styles.IncSearch = DMInv.cxGreenText
        Styles.Header = DMInv.cxSiniyText
        object tvDoljnostColumn1: TcxGridDBColumn
          Caption = #8470' '#1087'/'#1087
          OnGetDataText = tvDoljnostColumn1GetDataText
          Options.Editing = False
          Options.Filtering = False
          Options.Moving = False
          Options.Sorting = False
          Width = 20
        end
        object tvDoljnostDOLDATEBEGIN: TcxGridDBColumn
          Caption = #1042#1089#1091#1087#1080#1083' '#1074' '#1076#1086#1083#1078#1085#1086#1089#1090#1100
          DataBinding.FieldName = 'DOLDATEBEGIN'
          Width = 20
        end
        object tvDoljnostDOLDATEEND: TcxGridDBColumn
          Caption = #1042#1099#1096#1077#1083' '#1080#1079' '#1076#1086#1083#1078#1085'.'
          DataBinding.FieldName = 'DOLDATEEND'
          Width = 20
        end
        object tvDoljnostDOLISPROJIVANIE: TcxGridDBColumn
          Caption = #1055#1088#1086#1078#1080#1074#1072#1085#1080#1077
          DataBinding.FieldName = 'DOLISPROJIVANIE'
          PropertiesClassName = 'TcxCheckBoxProperties'
          Properties.NullStyle = nssUnchecked
          Properties.ReadOnly = True
          Properties.ValueChecked = 1
          Properties.ValueUnchecked = 0
          Width = 20
        end
        object tvDoljnostDOLISENGLISH: TcxGridDBColumn
          Caption = #1040#1085#1075#1083'.'
          DataBinding.FieldName = 'DOLISENGLISH'
          PropertiesClassName = 'TcxCheckBoxProperties'
          Properties.NullStyle = nssUnchecked
          Properties.ReadOnly = True
          Properties.ValueChecked = 1
          Properties.ValueUnchecked = 0
          Width = 20
        end
        object tvDoljnostDOLNOTE: TcxGridDBColumn
          Caption = #1050#1086#1084#1084#1077#1085#1090'.'
          DataBinding.FieldName = 'DOLNOTE'
          Width = 20
        end
        object tvDoljnostDOLTIMEENTER: TcxGridDBColumn
          Caption = #1042#1088#1077#1084#1103' '#1089#1086#1079#1076#1072#1085#1080#1103
          DataBinding.FieldName = 'DOLTIMEENTER'
          Width = 20
        end
        object tvDoljnostDOLUSERENTER: TcxGridDBColumn
          Caption = #1040#1074#1090#1086#1088
          DataBinding.FieldName = 'DOLUSERENTER'
          Width = 20
        end
        object tvDoljnostDOLTIMEEDIT: TcxGridDBColumn
          Caption = #1042#1088#1077#1084#1103' '#1088#1077#1076#1072#1082#1090#1080#1088'.'
          DataBinding.FieldName = 'DOLTIMEEDIT'
          Width = 20
        end
        object tvDoljnostDOLUSEREDIT: TcxGridDBColumn
          Caption = #1056#1077#1076#1072#1082#1090#1086#1088
          DataBinding.FieldName = 'DOLUSEREDIT'
          Width = 20
        end
        object tvDoljnostPLASTNAME: TcxGridDBColumn
          Caption = #1060#1072#1084#1080#1083#1080#1103
          DataBinding.FieldName = 'PLASTNAME'
          Width = 20
        end
        object tvDoljnostPNAME: TcxGridDBColumn
          Caption = #1048#1084#1103
          DataBinding.FieldName = 'PNAME'
          Width = 20
        end
        object tvDoljnostPPATRONYMIC: TcxGridDBColumn
          Caption = #1054#1090#1095#1077#1089#1090#1074#1086
          DataBinding.FieldName = 'PPATRONYMIC'
          Width = 20
        end
        object tvDoljnostDOLJN: TcxGridDBColumn
          Caption = #1044#1086#1083#1078#1085#1086#1089#1090#1100
          DataBinding.FieldName = 'DOLJN'
          Width = 20
        end
        object tvDoljnostDFAMOUNT: TcxGridDBColumn
          Caption = #1057#1091#1084#1084#1072' '#1085#1072#1095#1080#1089#1083'.'
          DataBinding.FieldName = 'DFAMOUNT'
          Width = 26
        end
        object tvDoljnostDFAMOUNT_DOPL: TcxGridDBColumn
          Caption = #1044#1086#1087#1083#1072#1090#1072
          DataBinding.FieldName = 'DFAMOUNT_DOPL'
          Width = 20
        end
        object tvDoljnostSUM_VYPL: TcxGridDBColumn
          Caption = #1054#1073#1097#1072#1103' '#1089#1091#1084#1084#1072
          DataBinding.FieldName = 'SUM_VYPL'
          Width = 31
        end
        object tvDoljnostDFADATEBEGIN: TcxGridDBColumn
          Caption = #1053#1072#1095#1072#1083#1086' '#1085#1072#1095#1080#1089#1083'.'
          DataBinding.FieldName = 'DFADATEBEGIN'
          Width = 38
        end
        object tvDoljnostDFADATEEND: TcxGridDBColumn
          Caption = #1050#1086#1085#1077#1094' '#1085#1072#1095#1080#1089#1083'.'
          DataBinding.FieldName = 'DFADATEEND'
          Width = 40
        end
        object tvDoljnostDFNOTE: TcxGridDBColumn
          Caption = #1050#1086#1084#1084#1077#1085#1090'. '#1082' '#1085#1072#1095#1080#1089#1083'.'
          DataBinding.FieldName = 'DFNOTE'
          Width = 60
        end
        object tvDoljnostVYPL_BUHG: TcxGridDBColumn
          Caption = #1042#1099#1076'. '#1073#1091#1093#1075'.'
          DataBinding.FieldName = 'VYPL_BUHG'
          Width = 41
        end
        object tvDoljnostVYPL_WHITE: TcxGridDBColumn
          Caption = #1042#1089#1077#1075#1086' '#1095#1080#1089#1090'.'
          DataBinding.FieldName = 'VYPL_WHITE'
          Width = 48
        end
        object tvDoljnostPARENTS_LIST: TcxGridDBColumn
          Caption = #1055#1086#1076#1088#1072#1079#1076#1077#1083#1077#1085#1080#1077
          DataBinding.FieldName = 'PARENTS_LIST'
          Width = 86
        end
        object tvDoljnostPID: TcxGridDBColumn
          DataBinding.FieldName = 'PID'
        end
      end
      object cxGridLevel2: TcxGridLevel
        GridView = tvDoljnost
      end
    end
    object cxMemo1: TcxMemo
      Left = 272
      Top = 88
      Lines.Strings = (
        'cxMemo1')
      TabOrder = 2
      Visible = False
      Height = 313
      Width = 729
    end
  end
  object cxSplitter2: TcxSplitter [3]
    Left = 0
    Top = 485
    Width = 1388
    Height = 8
    HotZoneClassName = 'TcxSimpleStyle'
    HotZone.SizePercent = 100
    AlignSplitter = salTop
    Control = Panel2
  end
  object Panel5: TPanel [4]
    Left = 0
    Top = 493
    Width = 1388
    Height = 200
    Align = alClient
    TabOrder = 8
    object Panel4: TPanel
      Left = 490
      Top = 1
      Width = 511
      Height = 198
      Align = alLeft
      BevelOuter = bvNone
      Caption = 'Panel3'
      TabOrder = 0
      object Label2: TLabel
        Left = 0
        Top = 0
        Width = 511
        Height = 16
        Align = alTop
        Alignment = taCenter
        Caption = #1059#1089#1083#1086#1074#1080#1103' '#1086#1087#1083#1072#1090#1099' ('#1076#1086#1083#1078#1085#1086#1089#1090#1100' '#1074#1099#1073#1080#1088#1072#1090#1100' '#1089#1083#1077#1074#1072'!!!)'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object dbgDF: TcxGrid
        Left = 0
        Top = 42
        Width = 511
        Height = 156
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        LookAndFeel.Kind = lfStandard
        object tvDF: TcxGridDBTableView
          NavigatorButtons.ConfirmDelete = False
          NavigatorButtons.First.Visible = True
          NavigatorButtons.PriorPage.Visible = True
          NavigatorButtons.Prior.Visible = True
          NavigatorButtons.Next.Visible = True
          NavigatorButtons.NextPage.Visible = True
          NavigatorButtons.Last.Visible = True
          NavigatorButtons.Insert.Visible = False
          NavigatorButtons.Append.Visible = False
          NavigatorButtons.Delete.Visible = False
          NavigatorButtons.Edit.Visible = False
          NavigatorButtons.Post.Visible = False
          NavigatorButtons.Cancel.Visible = False
          NavigatorButtons.Refresh.Visible = False
          NavigatorButtons.SaveBookmark.Visible = False
          NavigatorButtons.GotoBookmark.Enabled = False
          NavigatorButtons.GotoBookmark.Visible = False
          NavigatorButtons.Filter.Visible = False
          FilterBox.CustomizeDialog = False
          FilterBox.Visible = fvNever
          OnCellDblClick = tvDFCellDblClick
          DataController.DataSource = dsDF
          DataController.Summary.DefaultGroupSummaryItems = <>
          DataController.Summary.FooterSummaryItems = <
            item
              Format = '#,###0'
              Kind = skSum
              FieldName = 'DFAMOUNT'
              Column = tvDFDFAMOUNT
            end
            item
              Format = '#,###0'
              Kind = skSum
              FieldName = 'DFAMOUNT_DOPL'
              Column = tvDFDFAMOUNT_DOPL
            end
            item
              Format = '#,###0'
              Kind = skSum
              FieldName = 'SUM_VYPL'
              Column = tvDFSUM_VYPL
            end>
          DataController.Summary.SummaryGroups = <>
          DataController.Summary.Options = [soNullIgnore]
          OptionsBehavior.CellHints = True
          OptionsBehavior.FocusFirstCellOnNewRecord = True
          OptionsBehavior.IncSearch = True
          OptionsCustomize.ColumnFiltering = False
          OptionsCustomize.ColumnGrouping = False
          OptionsData.CancelOnExit = False
          OptionsData.Deleting = False
          OptionsData.DeletingConfirmation = False
          OptionsData.Editing = False
          OptionsData.Inserting = False
          OptionsView.NavigatorOffset = 5
          OptionsView.CellAutoHeight = True
          OptionsView.CellTextMaxLineCount = 1
          OptionsView.ColumnAutoWidth = True
          OptionsView.ExpandButtonsForEmptyDetails = False
          OptionsView.Footer = True
          OptionsView.GroupByBox = False
          OptionsView.HeaderEndEllipsis = True
          OptionsView.Indicator = True
          OptionsView.ShowColumnFilterButtons = sfbAlways
          Styles.Content = DMInv.cxData
          Styles.IncSearch = DMInv.cxGreenText
          Styles.Header = DMInv.cxSiniyText
          object tvDFDFAMOUNT: TcxGridDBColumn
            Caption = #1053#1072#1095#1080#1089#1083'.'
            DataBinding.FieldName = 'DFAMOUNT'
            Width = 40
          end
          object tvDFDFAMOUNT_DOPL: TcxGridDBColumn
            Caption = #1044#1086#1087#1083'.'
            DataBinding.FieldName = 'DFAMOUNT_DOPL'
            Width = 31
          end
          object tvDFSUM_VYPL: TcxGridDBColumn
            Caption = #1057#1091#1084#1084#1072' '#1085#1072#1095#1080#1089#1083'.'
            DataBinding.FieldName = 'SUM_VYPL'
            Width = 69
          end
          object tvDFDFADATEBEGIN: TcxGridDBColumn
            Caption = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072
            DataBinding.FieldName = 'DFADATEBEGIN'
            Width = 61
          end
          object tvDFDFADATEEND: TcxGridDBColumn
            Caption = #1044#1072#1090#1072' '#1086#1082#1086#1085#1095#1072#1085#1080#1103
            DataBinding.FieldName = 'DFADATEEND'
            Width = 78
          end
          object tvDFDFNOTE: TcxGridDBColumn
            Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
            DataBinding.FieldName = 'DFNOTE'
            Width = 63
          end
          object tvDFDFTIMEENTER: TcxGridDBColumn
            Caption = #1044#1072#1090#1072' '#1089#1086#1079#1076'.'
            DataBinding.FieldName = 'DFTIMEENTER'
            Width = 54
          end
          object tvDFDFUSERENTER: TcxGridDBColumn
            Caption = #1040#1074#1090#1086#1088
            DataBinding.FieldName = 'DFUSERENTER'
            Width = 32
          end
          object tvDFDFTIMEEDIT: TcxGridDBColumn
            Caption = #1044#1072#1090#1072' '#1088#1077#1076#1072#1082#1090#1080#1088'.'
            DataBinding.FieldName = 'DFTIMEEDIT'
            Width = 77
          end
          object tvDFDFUSEREDIT: TcxGridDBColumn
            Caption = #1056#1077#1076#1072#1082#1090#1086#1088
            DataBinding.FieldName = 'DFUSEREDIT'
            Width = 48
          end
          object tvDFVYPL_BUHG: TcxGridDBColumn
            Caption = #1042#1099#1076'. '#1073#1091#1093#1075'.'
            DataBinding.FieldName = 'VYPL_BUHG'
            Width = 53
          end
          object tvDFVYPL_WHITE: TcxGridDBColumn
            Caption = #1042#1089#1077#1075#1086' '#1095#1080#1089#1090'.'
            DataBinding.FieldName = 'VYPL_WHITE'
            Width = 64
          end
        end
        object cxGridLevel1: TcxGridLevel
          GridView = tvDF
        end
      end
      object dxBarDockControl3: TdxBarDockControl
        Left = 0
        Top = 16
        Width = 511
        Height = 26
        Align = dalTop
        BarManager = dxBarManager1
      end
    end
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 481
      Height = 198
      Align = alLeft
      BevelOuter = bvNone
      Caption = 'Panel3'
      TabOrder = 1
      object Label1: TLabel
        Left = 0
        Top = 0
        Width = 481
        Height = 16
        Align = alTop
        Alignment = taCenter
        Caption = #1048#1089#1090#1086#1088#1080#1103' '#1076#1086#1083#1078#1085#1086#1089#1090#1077#1081' '#1095#1077#1083#1086#1074#1077#1082#1072
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object dbgSotr: TcxGrid
        Left = 0
        Top = 42
        Width = 481
        Height = 156
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        LookAndFeel.Kind = lfStandard
        object tvSotr: TcxGridDBTableView
          NavigatorButtons.ConfirmDelete = False
          NavigatorButtons.First.Visible = True
          NavigatorButtons.PriorPage.Visible = True
          NavigatorButtons.Prior.Visible = True
          NavigatorButtons.Next.Visible = True
          NavigatorButtons.NextPage.Visible = True
          NavigatorButtons.Last.Visible = True
          NavigatorButtons.Insert.Visible = False
          NavigatorButtons.Append.Visible = False
          NavigatorButtons.Delete.Visible = False
          NavigatorButtons.Edit.Visible = False
          NavigatorButtons.Post.Visible = False
          NavigatorButtons.Cancel.Visible = False
          NavigatorButtons.Refresh.Visible = False
          NavigatorButtons.SaveBookmark.Visible = False
          NavigatorButtons.GotoBookmark.Enabled = False
          NavigatorButtons.GotoBookmark.Visible = False
          NavigatorButtons.Filter.Visible = False
          FilterBox.CustomizeDialog = False
          FilterBox.Visible = fvNever
          OnCellDblClick = tvSotrCellDblClick
          DataController.DataSource = dsSotr
          DataController.Summary.DefaultGroupSummaryItems = <>
          DataController.Summary.FooterSummaryItems = <
            item
              Format = '#,###0'
              Kind = skCount
              FieldName = 'PP'
              Column = tvSotrPP
            end>
          DataController.Summary.SummaryGroups = <>
          DataController.Summary.Options = [soNullIgnore]
          OptionsBehavior.CellHints = True
          OptionsBehavior.FocusFirstCellOnNewRecord = True
          OptionsBehavior.IncSearch = True
          OptionsCustomize.ColumnFiltering = False
          OptionsCustomize.ColumnGrouping = False
          OptionsData.CancelOnExit = False
          OptionsData.Deleting = False
          OptionsData.DeletingConfirmation = False
          OptionsData.Editing = False
          OptionsData.Inserting = False
          OptionsView.NavigatorOffset = 5
          OptionsView.CellAutoHeight = True
          OptionsView.CellTextMaxLineCount = 1
          OptionsView.ColumnAutoWidth = True
          OptionsView.ExpandButtonsForEmptyDetails = False
          OptionsView.Footer = True
          OptionsView.GroupByBox = False
          OptionsView.HeaderEndEllipsis = True
          OptionsView.Indicator = True
          OptionsView.ShowColumnFilterButtons = sfbAlways
          Styles.Content = DMInv.cxData
          Styles.IncSearch = DMInv.cxGreenText
          Styles.Header = DMInv.cxSiniyText
          object tvSotrPP: TcxGridDBColumn
            Caption = #1044#1086#1083#1078#1085#1086#1089#1090#1100
            DataBinding.FieldName = 'SDNAME'
            Width = 37
          end
          object tvSotrDOLDATEBEGIN: TcxGridDBColumn
            Caption = #1044#1072#1090#1072' '#1074#1089#1090'. '#1074' '#1076#1086#1083#1078'.'
            DataBinding.FieldName = 'DOLDATEBEGIN'
            Width = 125
          end
          object tvSotrDOLDATEEND: TcxGridDBColumn
            Caption = #1044#1072#1090#1072' '#1089#1085#1103#1090#1080#1103' '#1089' '#1076#1086#1083#1078#1085'.'
            DataBinding.FieldName = 'DOLDATEEND'
            Width = 144
          end
          object tvSotrDOLNOTE: TcxGridDBColumn
            Caption = #1050#1086#1084#1084#1077#1085#1090'.'
            DataBinding.FieldName = 'DOLNOTE'
            Width = 67
          end
          object tvSotrDOLTIMEENTER: TcxGridDBColumn
            Caption = #1044#1072#1090#1072' '#1074#1074#1086#1076#1072
            DataBinding.FieldName = 'DOLTIMEENTER'
            Width = 83
          end
          object tvSotrDOLUSERENTER: TcxGridDBColumn
            Caption = #1040#1074#1090#1086#1088
            DataBinding.FieldName = 'DOLUSERENTER'
            Width = 47
          end
          object tvSotrDOLTIMEEDIT: TcxGridDBColumn
            Caption = #1044#1072#1090#1072' '#1088#1077#1076#1072#1082#1090#1080#1088'.'
            DataBinding.FieldName = 'DOLTIMEEDIT'
            Width = 112
          end
          object tvSotrDOLUSEREDIT: TcxGridDBColumn
            Caption = #1056#1077#1076#1072#1082#1090#1086#1088
            DataBinding.FieldName = 'DOLUSEREDIT'
            Width = 55
          end
        end
        object dbgSotrLevel1: TcxGridLevel
          GridView = tvSotr
        end
      end
      object dxBarDockControl2: TdxBarDockControl
        Left = 0
        Top = 16
        Width = 481
        Height = 26
        Align = dalTop
        BarManager = dxBarManager1
      end
    end
    object cxSplitter1: TcxSplitter
      Left = 482
      Top = 1
      Width = 8
      Height = 198
      HotZoneClassName = 'TcxSimpleStyle'
      HotZone.SizePercent = 100
      Control = Panel3
    end
    object Panel6: TPanel
      Left = 1009
      Top = 1
      Width = 378
      Height = 198
      Align = alClient
      BevelOuter = bvNone
      Caption = 'Panel6'
      TabOrder = 3
      object Label3: TLabel
        Left = 0
        Top = 0
        Width = 378
        Height = 16
        Align = alTop
        Alignment = taCenter
        Caption = #1047#1072#1087#1080#1089#1080' '#1074' '#1090#1088#1091#1076#1086#1074#1086#1081
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object dxBarDockControl4: TdxBarDockControl
        Left = 0
        Top = 16
        Width = 378
        Height = 26
        Align = dalTop
        BarManager = dxBarManager1
      end
      object dbgTrudovaya: TcxGrid
        Left = 0
        Top = 42
        Width = 378
        Height = 156
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        LookAndFeel.Kind = lfStandard
        object tvTrudovaya: TcxGridDBTableView
          NavigatorButtons.ConfirmDelete = False
          NavigatorButtons.First.Visible = True
          NavigatorButtons.PriorPage.Visible = True
          NavigatorButtons.Prior.Visible = True
          NavigatorButtons.Next.Visible = True
          NavigatorButtons.NextPage.Visible = True
          NavigatorButtons.Last.Visible = True
          NavigatorButtons.Insert.Visible = False
          NavigatorButtons.Append.Visible = False
          NavigatorButtons.Delete.Visible = False
          NavigatorButtons.Edit.Visible = False
          NavigatorButtons.Post.Visible = False
          NavigatorButtons.Cancel.Visible = False
          NavigatorButtons.Refresh.Visible = False
          NavigatorButtons.SaveBookmark.Visible = False
          NavigatorButtons.GotoBookmark.Enabled = False
          NavigatorButtons.GotoBookmark.Visible = False
          NavigatorButtons.Filter.Visible = False
          FilterBox.CustomizeDialog = False
          FilterBox.Visible = fvNever
          OnCellDblClick = tvTrudovayaCellDblClick
          DataController.DataSource = dsTr
          DataController.Summary.DefaultGroupSummaryItems = <>
          DataController.Summary.FooterSummaryItems = <
            item
              Format = '#,###0'
              Kind = skSum
              FieldName = 'DFAMOUNT'
            end
            item
              Format = '#,###0'
              Kind = skSum
              FieldName = 'DFAMOUNT_DOPL'
            end
            item
              Format = '#,###0'
              Kind = skSum
              FieldName = 'SUM_VYPL'
            end>
          DataController.Summary.SummaryGroups = <>
          DataController.Summary.Options = [soNullIgnore]
          OptionsBehavior.CellHints = True
          OptionsBehavior.FocusFirstCellOnNewRecord = True
          OptionsBehavior.IncSearch = True
          OptionsCustomize.ColumnFiltering = False
          OptionsCustomize.ColumnGrouping = False
          OptionsData.CancelOnExit = False
          OptionsData.Deleting = False
          OptionsData.DeletingConfirmation = False
          OptionsData.Editing = False
          OptionsData.Inserting = False
          OptionsView.NavigatorOffset = 5
          OptionsView.CellAutoHeight = True
          OptionsView.CellTextMaxLineCount = 1
          OptionsView.ColumnAutoWidth = True
          OptionsView.ExpandButtonsForEmptyDetails = False
          OptionsView.Footer = True
          OptionsView.GroupByBox = False
          OptionsView.HeaderEndEllipsis = True
          OptionsView.Indicator = True
          OptionsView.ShowColumnFilterButtons = sfbAlways
          Styles.Content = DMInv.cxData
          Styles.IncSearch = DMInv.cxGreenText
          Styles.Header = DMInv.cxSiniyText
          object tvTrudovayaDTDATE: TcxGridDBColumn
            Caption = #1044#1072#1090#1072
            DataBinding.FieldName = 'DTDATE'
            Width = 66
          end
          object tvTrudovayaDTZAPIS: TcxGridDBColumn
            Caption = #1047#1072#1087#1080#1089#1100
            DataBinding.FieldName = 'DTZAPIS'
            Width = 85
          end
          object tvTrudovayaDTOSNOVANIE: TcxGridDBColumn
            Caption = #1054#1089#1085#1086#1074#1072#1085#1080#1077
            DataBinding.FieldName = 'DTOSNOVANIE'
            Width = 125
          end
          object tvTrudovayaDTUSERENTER: TcxGridDBColumn
            Caption = #1040#1074#1090#1086#1088
            DataBinding.FieldName = 'DTUSERENTER'
            Width = 77
          end
          object tvTrudovayaDTTIMEENTER: TcxGridDBColumn
            Caption = #1044#1072#1090#1072' '#1089#1086#1079#1076'.'
            DataBinding.FieldName = 'DTTIMEENTER'
            Width = 128
          end
          object tvTrudovayaDTUSEREDIT: TcxGridDBColumn
            Caption = #1056#1077#1076#1072#1082#1090#1086#1088
            DataBinding.FieldName = 'DTUSEREDIT'
            Width = 113
          end
          object tvTrudovayaDTTIMEEDIT: TcxGridDBColumn
            Caption = #1044#1072#1090#1072' '#1088#1077#1076#1072#1082#1090'.'
            DataBinding.FieldName = 'DTTIMEEDIT'
            Width = 76
          end
        end
        object cxGridLevel3: TcxGridLevel
          GridView = tvTrudovaya
        end
      end
    end
    object cxSplitter3: TcxSplitter
      Left = 1001
      Top = 1
      Width = 8
      Height = 198
      HotZoneClassName = 'TcxSimpleStyle'
      HotZone.SizePercent = 100
      Control = Panel4
    end
  end
  inherited dlgDS: TDataSource
    DataSet = qSD
  end
  object qSD: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT t1.sdparid, t1.sdid, t1.sdname, t1.SDISDELETE'
      'FROM'
      '('
      'WITH   recursive'
      '   tree (SDNAME, SDID, SDPARID, SDISDELETE)'
      
        '   AS (SELECT SD.SDNAME, SD.SDID, sd.SDPARID, sd.SDISDELETE FROM' +
        ' SYS_DIC SD'
      '      WHERE sd.SDPARID = :SDPARID'
      '      UNION ALL'
      '      SELECT SD1.SDNAME, SD1.SDID, sd1.SDPARID, sd1.SDISDELETE'
      ''
      '      FROM SYS_DIC SD1'
      '          INNER JOIN tree t '
      '           ON t.sdid = sd1.SDPARID)'
      ' SELECT  SDNAME, SDID, SDPARID, SDISDELETE FROM tree t'
      ') AS t1'
      
        'WHERE t1.SDISDELETE = 0 AND t1.sdparid <> 13096  AND t1.sdid <> ' +
        '13096')
    GeneratorField.Field = 'SDID'
    Left = 296
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'sdparid'
        ParamType = ptUnknown
      end>
    object qSDSDNAME: TIBStringField
      FieldName = 'SDNAME'
      ProviderFlags = []
      Size = 2303
    end
    object qSDSDID: TIntegerField
      FieldName = 'SDID'
      ProviderFlags = []
    end
    object qSDSDPARID: TIntegerField
      FieldName = 'SDPARID'
      ProviderFlags = []
    end
    object qSDSDISDELETE: TIntegerField
      FieldName = 'SDISDELETE'
      Origin = '"SYS_DIC"."SDISDELETE"'
    end
  end
  object qSotr: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterOpen = qSotrAfterOpen
    CachedUpdates = True
    DataSource = dsDoljnost
    SQL.Strings = (
      'SELECT DP.*, SD.SDNAME'
      'FROM DOLJNOST_PEOPLE DP'
      'INNER JOIN DOLJNOST D ON D.DOLID = DP.DOLID'
      'INNER JOIN SYS_DIC SD ON sd.SDID = d.SDID'
      
        'WHERE DP.pID = :pid and dP.dolisdelete is null and SD.sdisdelete' +
        ' = 0'
      'and d.dolisdelete is null'
      'ORDER BY D.DOLDATEBEGIN ')
    UpdateObject = quSotr
    GeneratorField.Field = 'DPID'
    GeneratorField.Generator = 'GEN_DOLJNOST_PEOPLE_ID'
    Left = 144
    Top = 261
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'pid'
        ParamType = ptUnknown
      end>
    object qSotrDOLDATEBEGIN: TDateField
      FieldName = 'DOLDATEBEGIN'
      Origin = '"DOLJNOST"."DOLDATEBEGIN"'
    end
    object qSotrDOLDATEEND: TDateField
      FieldName = 'DOLDATEEND'
      Origin = '"DOLJNOST"."DOLDATEEND"'
    end
    object qSotrDOLNOTE: TIBStringField
      FieldName = 'DOLNOTE'
      Origin = '"DOLJNOST"."DOLNOTE"'
      Size = 255
    end
    object qSotrDOLTIMEENTER: TDateTimeField
      FieldName = 'DOLTIMEENTER'
      Origin = '"DOLJNOST"."DOLTIMEENTER"'
    end
    object qSotrDOLUSERENTER: TIBStringField
      FieldName = 'DOLUSERENTER'
      Origin = '"DOLJNOST"."DOLUSERENTER"'
      Size = 40
    end
    object qSotrDOLTIMEEDIT: TDateTimeField
      FieldName = 'DOLTIMEEDIT'
      Origin = '"DOLJNOST"."DOLTIMEEDIT"'
    end
    object qSotrDOLUSEREDIT: TIBStringField
      FieldName = 'DOLUSEREDIT'
      Origin = '"DOLJNOST"."DOLUSEREDIT"'
      Size = 80
    end
    object qSotrPID: TIntegerField
      FieldName = 'PID'
      Origin = '"DOLJNOST"."PID"'
    end
    object qSotrSDID: TIntegerField
      FieldName = 'SDID'
      Origin = '"DOLJNOST"."SDID"'
    end
    object qSotrDOLISDELETE: TIntegerField
      FieldName = 'DOLISDELETE'
      Origin = '"DOLJNOST"."DOLISDELETE"'
    end
    object qSotrDOLISPROJIVANIE: TIntegerField
      FieldName = 'DOLISPROJIVANIE'
      Origin = '"DOLJNOST"."DOLISPROJIVANIE"'
    end
    object qSotrDOLISENGLISH: TIntegerField
      FieldName = 'DOLISENGLISH'
      Origin = '"DOLJNOST"."DOLISENGLISH"'
    end
    object qSotrSDNAME: TIBStringField
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qSotrDPID: TIntegerField
      FieldName = 'DPID'
      Origin = '"DOLJNOST_PEOPLE"."DPID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qSotrDOLID: TIntegerField
      FieldName = 'DOLID'
      Origin = '"DOLJNOST_PEOPLE"."DOLID"'
      Required = True
    end
    object qSotrDOLOSNOBYAZ: TIBStringField
      FieldName = 'DOLOSNOBYAZ'
      Origin = '"DOLJNOST_PEOPLE"."DOLOSNOBYAZ"'
      Size = 2048
    end
  end
  object quSotr: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  DPID,'
      '  DOLID,'
      '  PID,'
      '  SDID,'
      '  DOLDATEBEGIN,'
      '  DOLDATEEND,'
      '  DOLNOTE,'
      '  DOLTIMEENTER,'
      '  DOLUSERENTER,'
      '  DOLTIMEEDIT,'
      '  DOLUSEREDIT,'
      '  DOLISDELETE,'
      '  DOLISPROJIVANIE,'
      '  DOLISENGLISH,'
      '  DOLOSNOBYAZ,'
      '  SDNAME'
      'from DOLJNOST_PEOPLE '
      'where'
      '  DPID = :DPID')
    ModifySQL.Strings = (
      'update DOLJNOST_PEOPLE'
      'set'
      '  DOLDATEBEGIN = :DOLDATEBEGIN,'
      '  DOLDATEEND = :DOLDATEEND,'
      '  DOLID = :DOLID,'
      '  DOLISDELETE = :DOLISDELETE,'
      '  DOLISENGLISH = :DOLISENGLISH,'
      '  DOLISPROJIVANIE = :DOLISPROJIVANIE,'
      '  DOLNOTE = :DOLNOTE,'
      '  DOLOSNOBYAZ = :DOLOSNOBYAZ,'
      '  DPID = :DPID,'
      '  PID = :PID'
      'where'
      '  DPID = :OLD_DPID')
    InsertSQL.Strings = (
      'insert into DOLJNOST_PEOPLE'
      
        '  (DOLDATEBEGIN, DOLDATEEND, DOLID, DOLISDELETE, DOLISENGLISH, D' +
        'OLISPROJIVANIE, '
      '   DOLNOTE, DOLOSNOBYAZ, DPID, PID)'
      'values'
      
        '  (:DOLDATEBEGIN, :DOLDATEEND, :DOLID, :DOLISDELETE, :DOLISENGLI' +
        'SH, :DOLISPROJIVANIE, '
      '   :DOLNOTE, :DOLOSNOBYAZ, :DPID, :PID)')
    DeleteSQL.Strings = (
      'update DOLJNOST_PEOPLE'
      'set'
      '  DOLISDELETE = 1'
      'where'
      '    DPID = :OLD_DPID')
    Left = 184
    Top = 261
  end
  object dsSotr: TDataSource
    DataSet = qSotr
    Left = 104
    Top = 261
  end
  object dsDF: TDataSource
    DataSet = qDF
    Left = 552
    Top = 261
  end
  object qDF: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qDFAfterInsert
    CachedUpdates = True
    DataSource = dsSotr
    SQL.Strings = (
      
        'SELECT DFP.*, (COALESCE(DFP.DFAMOUNT, 0) + COALESCE(DFP.DFAMOUNT' +
        '_dopl,0)) AS sum_vypl,'
      '(COALESCE(DFP.DFAMOUNT, 0) * 0.87) AS vypl_buhg,'
      
        '(COALESCE(DFP.DFAMOUNT, 0) * 0.87 + COALESCE(DFP.DFAMOUNT_dopl,0' +
        ')) AS vypl_white'
      'FROM DF_PEOPLE DFP'
      'WHERE DFP.dpid = :dpid AND dfP.DFISDELETE IS NULL')
    UpdateObject = quDF
    GeneratorField.Field = 'DFID'
    GeneratorField.Generator = 'GEN_DF_PEOPLE_ID'
    Left = 592
    Top = 261
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'dpid'
        ParamType = ptUnknown
      end>
    object qDFDFID: TIntegerField
      FieldName = 'DFID'
      Origin = '"DOLJNOST_FINANCE"."DFID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qDFDFAMOUNT: TIBBCDField
      FieldName = 'DFAMOUNT'
      Origin = '"DOLJNOST_FINANCE"."DFAMOUNT"'
      DisplayFormat = '#,###0'
      EditFormat = '0'
      Precision = 18
      Size = 2
    end
    object qDFDFAMOUNT_DOPL: TIBBCDField
      FieldName = 'DFAMOUNT_DOPL'
      Origin = '"DOLJNOST_FINANCE"."DFAMOUNT_DOPL"'
      DisplayFormat = '#,###0'
      EditFormat = '0'
      Precision = 18
      Size = 2
    end
    object qDFDFADATEBEGIN: TDateField
      FieldName = 'DFADATEBEGIN'
      Origin = '"DOLJNOST_FINANCE"."DFADATEBEGIN"'
    end
    object qDFDFADATEEND: TDateField
      FieldName = 'DFADATEEND'
      Origin = '"DOLJNOST_FINANCE"."DFADATEEND"'
    end
    object qDFDFNOTE: TIBStringField
      FieldName = 'DFNOTE'
      Origin = '"DOLJNOST_FINANCE"."DFNOTE"'
      Size = 255
    end
    object qDFDFTIMEENTER: TDateTimeField
      FieldName = 'DFTIMEENTER'
      Origin = '"DOLJNOST_FINANCE"."DFTIMEENTER"'
    end
    object qDFDFUSERENTER: TIBStringField
      FieldName = 'DFUSERENTER'
      Origin = '"DOLJNOST_FINANCE"."DFUSERENTER"'
      Size = 40
    end
    object qDFDFTIMEEDIT: TDateTimeField
      FieldName = 'DFTIMEEDIT'
      Origin = '"DOLJNOST_FINANCE"."DFTIMEEDIT"'
    end
    object qDFDFUSEREDIT: TIBStringField
      FieldName = 'DFUSEREDIT'
      Origin = '"DOLJNOST_FINANCE"."DFUSEREDIT"'
      Size = 40
    end
    object qDFDFISDELETE: TIntegerField
      FieldName = 'DFISDELETE'
      Origin = '"DOLJNOST_FINANCE"."DFISDELETE"'
    end
    object qDFSUM_VYPL: TIBBCDField
      FieldName = 'SUM_VYPL'
      ProviderFlags = []
      DisplayFormat = '#,###0'
      Precision = 18
      Size = 2
    end
    object qDFDPID: TIntegerField
      FieldName = 'DPID'
      Origin = '"DF_PEOPLE"."DPID"'
    end
    object qDFVYPL_BUHG: TIBBCDField
      FieldName = 'VYPL_BUHG'
      ProviderFlags = []
      DisplayFormat = '#,###0'
      Precision = 18
      Size = 4
    end
    object qDFVYPL_WHITE: TIBBCDField
      FieldName = 'VYPL_WHITE'
      ProviderFlags = []
      DisplayFormat = '#,###0'
      Precision = 18
      Size = 4
    end
  end
  object quDF: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  DFID,'
      '  DPID,'
      '  DFAMOUNT,'
      '  DFAMOUNT_DOPL,'
      '  DFADATEBEGIN,'
      '  DFADATEEND,'
      '  DFNOTE,'
      '  DFTIMEENTER,'
      '  DFUSERENTER,'
      '  DFTIMEEDIT,'
      '  DFUSEREDIT,'
      '  DFISDELETE,'
      '  SUM_VYPL'
      'from DF_PEOPLE '
      'where'
      '  DFID = :DFID')
    ModifySQL.Strings = (
      'update DF_PEOPLE'
      'set'
      '  DFADATEBEGIN = :DFADATEBEGIN,'
      '  DFADATEEND = :DFADATEEND,'
      '  DFAMOUNT = :DFAMOUNT,'
      '  DFAMOUNT_DOPL = :DFAMOUNT_DOPL,'
      '  DFID = :DFID,'
      '  DFISDELETE = :DFISDELETE,'
      '  DFNOTE = :DFNOTE,'
      '  DPID = :DPID'
      'where'
      '  DFID = :OLD_DFID')
    InsertSQL.Strings = (
      'insert into DF_PEOPLE'
      
        '  (DFADATEBEGIN, DFADATEEND, DFAMOUNT, DFAMOUNT_DOPL, DFID, DFIS' +
        'DELETE, '
      '   DFNOTE, DPID)'
      'values'
      
        '  (:DFADATEBEGIN, :DFADATEEND, :DFAMOUNT, :DFAMOUNT_DOPL, :DFID,' +
        ' :DFISDELETE, '
      '   :DFNOTE, :DPID)')
    DeleteSQL.Strings = (
      'update DF_PEOPLE'
      'set'
      '  DFISDELETE = 1'
      'where'
      '  DFID = :OLD_DFID')
    Left = 632
    Top = 261
  end
  object cxPropertiesStore1: TcxPropertiesStore
    Components = <
      item
        Component = Panel2
        Properties.Strings = (
          'Height'
          'Left'
          'Top'
          'Width')
      end
      item
        Component = Panel3
        Properties.Strings = (
          'Height'
          'Left'
          'Top'
          'Width')
      end
      item
        Component = Panel4
        Properties.Strings = (
          'Height'
          'Left'
          'Top'
          'Width')
      end
      item
        Component = Panel5
        Properties.Strings = (
          'Height'
          'Left'
          'Top'
          'Width')
      end
      item
        Component = Panel6
        Properties.Strings = (
          'Height'
          'Left'
          'Top'
          'Width')
      end>
    StorageName = #1048#1057' '#1054#1083#1080#1084#1087#1080#1082'_PS_fmDoljnost'
    StorageType = stRegistry
    Left = 736
    Top = 120
  end
  object dxBarManager1: TdxBarManager
    AllowReset = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Categories.Strings = (
      'Default')
    Categories.ItemsVisibles = (
      2)
    Categories.Visibles = (
      True)
    ImageOptions.Images = DMInv.cxSmallImages
    LookAndFeel.SkinName = ''
    NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
    PopupMenuLinks = <>
    ShowHint = False
    Style = bmsUseLookAndFeel
    UseSystemFont = True
    Left = 432
    Top = 187
    DockControlHeights = (
      0
      0
      0
      0)
    object dxBarManager1Bar1: TdxBar
      AllowClose = False
      AllowCustomizing = False
      AllowQuickCustomizing = False
      AllowReset = False
      Caption = 'Custom 1'
      CaptionButtons = <>
      DockControl = dxBarDockControl1
      DockedDockControl = dxBarDockControl1
      DockedLeft = 0
      DockedTop = 0
      FloatLeft = 590
      FloatTop = 232
      FloatClientWidth = 51
      FloatClientHeight = 22
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ItemLinks = <
        item
          Visible = True
          ItemName = 'bbAddEditDoljnost'
        end
        item
          BeginGroup = True
          Visible = True
          ItemName = 'bbAddPDoljnost'
        end
        item
          BeginGroup = True
          Visible = True
          ItemName = 'beSelectDoljnost'
        end
        item
          BeginGroup = True
          Visible = True
          ItemName = 'bDate'
        end
        item
          BeginGroup = True
          Visible = True
          ItemName = 'bbsearch'
        end
        item
          BeginGroup = True
          Visible = True
          ItemName = 'bbRefresh'
        end
        item
          BeginGroup = True
          Visible = True
          ItemName = 'dxBarButton2'
        end
        item
          Visible = True
          ItemName = 'bbService'
        end
        item
          Visible = True
          ItemName = 'dxBarButton3'
        end>
      NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
      OneOnRow = True
      RotateWhenVertical = False
      Row = 0
      SizeGrip = False
      UseOwnFont = True
      UseRestSpace = True
      Visible = True
      WholeRow = False
    end
    object dxBarManager1Bar2: TdxBar
      AllowClose = False
      AllowCustomizing = False
      AllowQuickCustomizing = False
      AllowReset = False
      Caption = 'Custom 2'
      CaptionButtons = <>
      DockControl = dxBarDockControl2
      DockedDockControl = dxBarDockControl2
      DockedLeft = 0
      DockedTop = 0
      FloatLeft = 154
      FloatTop = 115
      FloatClientWidth = 0
      FloatClientHeight = 0
      ItemLinks = <
        item
          Visible = True
          ItemName = 'dxBarButton4'
        end
        item
          Visible = True
          ItemName = 'tbEditK'
        end
        item
          Visible = True
          ItemName = 'dxBarButton6'
        end>
      NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
      OneOnRow = True
      Row = 0
      UseOwnFont = False
      UseRestSpace = True
      Visible = True
      WholeRow = False
    end
    object dxBarManager1Bar3: TdxBar
      AllowClose = False
      AllowCustomizing = False
      AllowQuickCustomizing = False
      AllowReset = False
      Caption = 'Custom 3'
      CaptionButtons = <>
      DockControl = dxBarDockControl3
      DockedDockControl = dxBarDockControl3
      DockedLeft = 0
      DockedTop = 0
      FloatLeft = 78
      FloatTop = 90
      FloatClientWidth = 0
      FloatClientHeight = 0
      ItemLinks = <
        item
          Visible = True
          ItemName = 'dxBarButton5'
        end
        item
          Visible = True
          ItemName = 'dxBarButton7'
        end
        item
          Visible = True
          ItemName = 'dxBarButton8'
        end>
      NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
      OneOnRow = True
      Row = 0
      UseOwnFont = False
      UseRestSpace = True
      Visible = True
      WholeRow = False
    end
    object dxBarManager1Bar4: TdxBar
      AllowClose = False
      AllowCustomizing = False
      AllowQuickCustomizing = False
      AllowReset = False
      Caption = 'Custom 4'
      CaptionButtons = <>
      DockControl = dxBarDockControl4
      DockedDockControl = dxBarDockControl4
      DockedLeft = 0
      DockedTop = 0
      FloatLeft = 422
      FloatTop = 147
      FloatClientWidth = 0
      FloatClientHeight = 0
      ItemLinks = <
        item
          Visible = True
          ItemName = 'bTRAdd'
        end
        item
          Visible = True
          ItemName = 'bTrEdit'
        end
        item
          Visible = True
          ItemName = 'bTrDel'
        end>
      OneOnRow = True
      Row = 0
      UseOwnFont = False
      UseRestSpace = True
      Visible = True
      WholeRow = False
    end
    object bbAddEditDoljnost: TdxBarButton
      Caption = #1044#1086#1083#1078#1085#1086#1089#1090#1085#1086#1077' '#1088#1072#1089#1087#1080#1089#1072#1085#1080#1077
      Category = 0
      Hint = #1056#1077#1076#1072#1082#1090#1080#1088#1086#1074#1072#1085#1080#1077' '#1076#1086#1083#1078#1085#1086#1089#1090#1077#1081
      Visible = ivAlways
      ImageIndex = 50
      PaintStyle = psCaptionGlyph
      OnClick = bbAddEditDoljnostClick
    end
    object beSelectDoljnost: TcxBarEditItem
      Caption = #1042#1099#1073#1086#1088' '#1076#1086#1083#1078#1085#1086#1089#1090#1080'(-'#1077#1081'):'
      Category = 0
      Hint = #1042#1099#1073#1086#1088' '#1076#1086#1083#1078#1085#1086#1089#1090#1080'(-'#1077#1081')'
      Visible = ivAlways
      OnChange = beSelectDoljnostChange
      ShowCaption = True
      Width = 300
      PropertiesClassName = 'TcxButtonEditProperties'
      Properties.Buttons = <
        item
          Default = True
        end>
      Properties.IncrementalSearch = False
      Properties.ReadOnly = True
      Properties.OnButtonClick = beSelectDoljnostPropertiesButtonClick
      InternalEditValue = ''
    end
    object cxBarEditItem1: TcxBarEditItem
      Caption = #1042#1099#1073#1086#1088' '#1076#1086#1083#1078#1085#1086#1089#1090#1080'(-'#1077#1081'):'
      Category = 0
      Hint = #1042#1099#1073#1086#1088' '#1076#1086#1083#1078#1085#1086#1089#1090#1080'(-'#1077#1081'):'
      Visible = ivAlways
      Width = 100
      PropertiesClassName = 'TcxLabelProperties'
    end
    object cxBarEditItem2: TcxBarEditItem
      Caption = #1053#1072' '#1076#1072#1090#1091':'
      Category = 0
      Hint = #1053#1072' '#1076#1072#1090#1091':'
      Visible = ivAlways
      Width = 100
      PropertiesClassName = 'TcxLabelProperties'
    end
    object bDate: TcxBarEditItem
      Caption = #1053#1072' '#1076#1072#1090#1091':'
      Category = 0
      Hint = #1044#1072#1090#1072' '#1085#1072#1093#1086#1078#1076#1077#1085#1080#1103' '#1074' '#1076#1086#1083#1078#1085#1086#1089#1090#1080
      Visible = ivAlways
      ShowCaption = True
      Width = 150
      PropertiesClassName = 'TcxDateEditProperties'
      Properties.OnChange = bDatePropertiesChange
      InternalEditValue = 40921d
    end
    object bbsearch: TdxBarButton
      Caption = #1048#1089#1082#1072#1090#1100
      Category = 0
      Hint = #1048#1089#1082#1072#1090#1100
      Visible = ivAlways
      ImageIndex = 53
      PaintStyle = psCaptionGlyph
      OnClick = bbsearchClick
    end
    object dxBarButton2: TdxBarButton
      Align = iaRight
      Caption = 'New Button'
      Category = 0
      Hint = #1069#1082#1089#1087#1086#1088#1090' '#1074' Excel'
      Visible = ivAlways
      ImageIndex = 48
      OnClick = dxBarButton2Click
    end
    object dxBarButton3: TdxBarButton
      Align = iaRight
      Caption = #1042#1080#1076#1080#1084#1086#1089#1090#1100' '#1082#1086#1083#1086#1085#1086#1082
      Category = 0
      Hint = #1042#1080#1076#1080#1084#1086#1089#1090#1100' '#1082#1086#1083#1086#1085#1086#1082
      Visible = ivAlways
      ImageIndex = 17
      OnClick = dxBarButton3Click
    end
    object dxBarButton4: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 57
      OnClick = dxBarButton4Click
    end
    object tbEditK: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = #1048#1079#1084#1077#1085#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 54
      OnClick = tbEditKClick
    end
    object dxBarButton6: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = #1059#1076#1072#1083#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 10
      OnClick = dxBarButton6Click
    end
    object dxBarButton5: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 57
      OnClick = dxBarButton5Click
    end
    object dxBarButton7: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = #1048#1079#1084#1077#1085#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 54
      OnClick = dxBarButton7Click
    end
    object dxBarButton8: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = #1059#1076#1072#1083#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 10
      OnClick = dxBarButton8Click
    end
    object bbAddPDoljnost: TdxBarButton
      Caption = #1055#1088#1080#1074#1103#1079#1082#1072' '#1095#1077#1083#1086#1074#1077#1082#1072' '#1082' '#1076#1086#1083#1078#1085#1086#1089#1090#1080
      Category = 0
      Hint = #1055#1088#1080#1074#1103#1079#1082#1072' '#1095#1077#1083#1086#1074#1077#1082#1072' '#1082' '#1076#1086#1083#1078#1085#1086#1089#1090#1080
      Visible = ivAlways
      DropDownEnabled = False
      ImageIndex = 40
      PaintStyle = psCaptionGlyph
      OnClick = bbAddPDoljnostClick
    end
    object bbRefresh: TdxBarButton
      Caption = #1054#1073#1085#1086#1074#1080#1090#1100' '
      Category = 0
      Hint = #1054#1073#1085#1086#1074#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 55
      PaintStyle = psCaptionGlyph
      OnClick = bbRefreshClick
    end
    object bbService: TdxBarButton
      Category = 0
      Visible = ivNever
      ImageIndex = 60
      OnClick = bbServiceClick
    end
    object bTRAdd: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 57
      OnClick = bTRAddClick
    end
    object bTrEdit: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 54
      OnClick = bTrEditClick
    end
    object bTrDel: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 10
      OnClick = bTrDelClick
    end
  end
  object qdoljnost: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT DP.*, COALESCE(P.PLASTNAME, '#39#1042#1072#1082#1072#1085#1089#1080#1103#39') AS PLASTNAME,'
      
        'COALESCE(P.PNAME,'#39#1042#1072#1082#1072#1085#1089#1080#1103#39') AS PNAME, COALESCE(P.PPATRONYMIC,'#39#1042 +
        #1072#1082#1072#1085#1089#1080#1103#39') AS PPATRONYMIC,'
      
        'SD.SDNAME AS DOLJN, DFP.DFAMOUNT, DFP.DFAMOUNT_dopl, DFP.DFADATE' +
        'BEGIN, DFP.DFADATEEND,'
      
        'DFP.DFNOTE, (COALESCE(DFP.DFAMOUNT, 0) + COALESCE(DFP.DFAMOUNT_d' +
        'opl,0)) AS sum_vypl,'
      '(COALESCE(DFP.DFAMOUNT, 0) * 0.87) AS vypl_buhg,'
      
        '(COALESCE(DFP.DFAMOUNT, 0) * 0.87 + COALESCE(DFP.DFAMOUNT_dopl,0' +
        ')) AS vypl_white,'
      
        '(SELECT parents_list  FROM SP_GETTREEPARENTS(D.SDID, 28)) AS par' +
        'ents_list'
      'FROM DOLJNOST D'
      'LEFT OUTER JOIN DOLJNOST_PEOPLE DP ON dp.DOLID = d.DOLID'
      'LEFT OUTER JOIN PEOPLE P ON P.PID = DP.PID'
      'LEFT OUTER JOIN SYS_DIC SD ON SD.SDID = D.SDID'
      
        'LEFT OUTER JOIN DF_PEOPLE DFP ON DFP.DPID = DP.DPID AND DFP.DFIS' +
        'DELETE IS NULL AND CURRENT_DATE BETWEEN DFP.DFADATEBEGIN AND COA' +
        'LESCE(DFP.DFADATEEND, CURRENT_DATE)'
      
        'WHERE d.dolisdelete is null AND DP.DOLISDELETE IS NULL and sd.sd' +
        'isdelete = 0')
    Left = 304
    Top = 141
    object qdoljnostDOLID: TIntegerField
      FieldName = 'DOLID'
      Origin = '"DOLJNOST"."DOLID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qdoljnostPID: TIntegerField
      FieldName = 'PID'
      Origin = '"DOLJNOST"."PID"'
    end
    object qdoljnostSDID: TIntegerField
      FieldName = 'SDID'
      Origin = '"DOLJNOST"."SDID"'
    end
    object qdoljnostDOLDATEBEGIN: TDateField
      FieldName = 'DOLDATEBEGIN'
      Origin = '"DOLJNOST"."DOLDATEBEGIN"'
    end
    object qdoljnostDOLDATEEND: TDateField
      FieldName = 'DOLDATEEND'
      Origin = '"DOLJNOST"."DOLDATEEND"'
    end
    object qdoljnostDOLISPROJIVANIE: TIntegerField
      FieldName = 'DOLISPROJIVANIE'
      Origin = '"DOLJNOST"."DOLISPROJIVANIE"'
    end
    object qdoljnostDOLISENGLISH: TIntegerField
      FieldName = 'DOLISENGLISH'
      Origin = '"DOLJNOST"."DOLISENGLISH"'
    end
    object qdoljnostDOLNOTE: TIBStringField
      FieldName = 'DOLNOTE'
      Origin = '"DOLJNOST"."DOLNOTE"'
      Size = 255
    end
    object qdoljnostDOLTIMEENTER: TDateTimeField
      FieldName = 'DOLTIMEENTER'
      Origin = '"DOLJNOST"."DOLTIMEENTER"'
    end
    object qdoljnostDOLUSERENTER: TIBStringField
      FieldName = 'DOLUSERENTER'
      Origin = '"DOLJNOST"."DOLUSERENTER"'
      Size = 40
    end
    object qdoljnostDOLTIMEEDIT: TDateTimeField
      FieldName = 'DOLTIMEEDIT'
      Origin = '"DOLJNOST"."DOLTIMEEDIT"'
    end
    object qdoljnostDOLUSEREDIT: TIBStringField
      FieldName = 'DOLUSEREDIT'
      Origin = '"DOLJNOST"."DOLUSEREDIT"'
      Size = 80
    end
    object qdoljnostPLASTNAME: TIBStringField
      FieldName = 'PLASTNAME'
      Origin = '"PEOPLE"."PLASTNAME"'
      Size = 255
    end
    object qdoljnostPNAME: TIBStringField
      FieldName = 'PNAME'
      Origin = '"PEOPLE"."PNAME"'
      Size = 255
    end
    object qdoljnostPPATRONYMIC: TIBStringField
      FieldName = 'PPATRONYMIC'
      Origin = '"PEOPLE"."PPATRONYMIC"'
      Size = 255
    end
    object qdoljnostDOLJN: TIBStringField
      FieldName = 'DOLJN'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qdoljnostDFAMOUNT: TIBBCDField
      FieldName = 'DFAMOUNT'
      Origin = '"DOLJNOST_FINANCE"."DFAMOUNT"'
      DisplayFormat = '#,###0'
      Precision = 18
      Size = 2
    end
    object qdoljnostDFAMOUNT_DOPL: TIBBCDField
      FieldName = 'DFAMOUNT_DOPL'
      Origin = '"DOLJNOST_FINANCE"."DFAMOUNT_DOPL"'
      DisplayFormat = '#,###0'
      Precision = 18
      Size = 2
    end
    object qdoljnostDFADATEBEGIN: TDateField
      FieldName = 'DFADATEBEGIN'
      Origin = '"DOLJNOST_FINANCE"."DFADATEBEGIN"'
    end
    object qdoljnostDFADATEEND: TDateField
      FieldName = 'DFADATEEND'
      Origin = '"DOLJNOST_FINANCE"."DFADATEEND"'
    end
    object qdoljnostDFNOTE: TIBStringField
      FieldName = 'DFNOTE'
      Origin = '"DOLJNOST_FINANCE"."DFNOTE"'
      Size = 255
    end
    object qdoljnostSUM_VYPL: TIBBCDField
      FieldName = 'SUM_VYPL'
      ProviderFlags = []
      DisplayFormat = '#,###0'
      Precision = 18
      Size = 2
    end
    object qdoljnostVYPL_BUHG: TIBBCDField
      FieldName = 'VYPL_BUHG'
      ProviderFlags = []
      DisplayFormat = '#,###0'
      Precision = 18
      Size = 2
    end
    object qdoljnostVYPL_WHITE: TIBBCDField
      FieldName = 'VYPL_WHITE'
      ProviderFlags = []
      DisplayFormat = '#,###0'
      Precision = 18
      Size = 2
    end
    object qdoljnostPARENTS_LIST: TIBStringField
      FieldName = 'PARENTS_LIST'
      ProviderFlags = []
      Size = 2048
    end
  end
  object dsDoljnost: TDataSource
    DataSet = qdoljnost
    Left = 272
    Top = 141
  end
  object SD1: TSaveDialog
    InitialDir = 'c:\'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Left = 704
    Top = 120
  end
  object qdoljnost_temp: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'select d.* from sp_doljnost(:data) as d')
    Left = 304
    Top = 173
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'data'
        ParamType = ptUnknown
      end>
  end
  object sqlCloseDF: TIBSQL
    Database = DMInv.DBRead
    SQL.Strings = (
      'UPDATE DF_PEOPLE DF SET DF.DFADATEEND = :date_end'
      'WHERE (DF.DFADATEEND is NULL) AND DF.DFID IN ('
      'SELECT first 1 DF.DFID'
      'FROM DF_PEOPLE DF'
      'WHERE DF.DFADATEBEGIN < :date_begin AND DF.DPID = :dpid'
      'AND df.DFISDELETE IS NULL'
      'ORDER BY DF.DFADATEBEGIN DESC)')
    Transaction = DMInv.IBTransaction1
    Left = 592
    Top = 301
  end
  object dsTr: TDataSource
    DataSet = qTr
    Left = 1025
    Top = 566
  end
  object qTr: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qTrAfterInsert
    CachedUpdates = True
    DataSource = dsDoljnost
    SQL.Strings = (
      'SELECT DT.*'
      'FROM DOLJNOST_TRUDOVAYA DT'
      'WHERE DT.DTISDELETE IS NULL AND DT.PID = :pid'
      'ORDER BY DT.DTDATE')
    UpdateObject = quTr
    GeneratorField.Field = 'DTID'
    GeneratorField.Generator = 'GEN_DOLJNOST_TRUDOVAYA_ID'
    Left = 1065
    Top = 566
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'pid'
        ParamType = ptUnknown
      end>
    object qTrDTID: TIntegerField
      FieldName = 'DTID'
      Origin = '"DOLJNOST_TRUDOVAYA"."DTID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qTrPID: TIntegerField
      FieldName = 'PID'
      Origin = '"DOLJNOST_TRUDOVAYA"."PID"'
    end
    object qTrDTDATE: TDateField
      FieldName = 'DTDATE'
      Origin = '"DOLJNOST_TRUDOVAYA"."DTDATE"'
    end
    object qTrDTZAPIS: TIBStringField
      FieldName = 'DTZAPIS'
      Origin = '"DOLJNOST_TRUDOVAYA"."DTZAPIS"'
      Size = 2048
    end
    object qTrDTOSNOVANIE: TIBStringField
      FieldName = 'DTOSNOVANIE'
      Origin = '"DOLJNOST_TRUDOVAYA"."DTOSNOVANIE"'
      Size = 2048
    end
    object qTrDTUSERENTER: TIBStringField
      FieldName = 'DTUSERENTER'
      Origin = '"DOLJNOST_TRUDOVAYA"."DTUSERENTER"'
    end
    object qTrDTTIMEENTER: TDateTimeField
      FieldName = 'DTTIMEENTER'
      Origin = '"DOLJNOST_TRUDOVAYA"."DTTIMEENTER"'
    end
    object qTrDTUSEREDIT: TIBStringField
      FieldName = 'DTUSEREDIT'
      Origin = '"DOLJNOST_TRUDOVAYA"."DTUSEREDIT"'
    end
    object qTrDTTIMEEDIT: TDateTimeField
      FieldName = 'DTTIMEEDIT'
      Origin = '"DOLJNOST_TRUDOVAYA"."DTTIMEEDIT"'
    end
    object qTrDTISDELETE: TIntegerField
      FieldName = 'DTISDELETE'
      Origin = '"DOLJNOST_TRUDOVAYA"."DTISDELETE"'
    end
  end
  object quTr: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  DTID,'
      '  PID,'
      '  DTDATE,'
      '  DTZAPIS,'
      '  DTOSNOVANIE,'
      '  DTUSERENTER,'
      '  DTTIMEENTER,'
      '  DTUSEREDIT,'
      '  DTTIMEEDIT,'
      '  DTISDELETE'
      'from DOLJNOST_TRUDOVAYA '
      'where'
      '  DTID = :DTID')
    ModifySQL.Strings = (
      'update DOLJNOST_TRUDOVAYA'
      'set'
      '  DTDATE = :DTDATE,'
      '  DTID = :DTID,'
      '  DTISDELETE = :DTISDELETE,'
      '  DTOSNOVANIE = :DTOSNOVANIE,'
      '  DTZAPIS = :DTZAPIS,'
      '  PID = :PID'
      'where'
      '  DTID = :OLD_DTID')
    InsertSQL.Strings = (
      'insert into DOLJNOST_TRUDOVAYA'
      '  (DTDATE, DTID, DTISDELETE, DTOSNOVANIE, DTZAPIS, PID)'
      'values'
      '  (:DTDATE, :DTID, :DTISDELETE, :DTOSNOVANIE, :DTZAPIS, :PID)')
    DeleteSQL.Strings = (
      'update DOLJNOST_TRUDOVAYA'
      'set'
      '  DTISDELETE = 1'
      'where'
      '  DTID = :OLD_DTID')
    Left = 1105
    Top = 566
  end
end
